home *** CD-ROM | disk | FTP | other *** search
/ System Booster / System Booster.iso / Archives / Timing / DaSayTime.lha / DaSayTime / DaSayTime.e < prev    next >
Encoding:
Text File  |  1995-09-13  |  9.0 KB  |  433 lines
  1. OPT OSVERSION=37
  2.  
  3. /*********************************************************************
  4. *
  5. * $VER: Kode:AmigaE/E-Kode/__FASE_2___/DaSayTime/DaSayTime.e 0.4 (12.09.95) $
  6. *
  7. * $RCSfile: DaSayTime.e $
  8. * $Revision: 1.6 $
  9. * $Author: dapp $
  10. * $Locker: dapp $
  11. * $AmigaDATE: 12.09.95   $
  12. * 
  13. * $Log: DaSayTime.e $
  14. # Revision 1.6  1995/09/12  07:51:15  dapp
  15. # Program $VER bumped
  16. #
  17. # Revision 1.5  1995/09/12  07:38:59  dapp
  18. # Bug, BYTE read from $0 (vol:=Val(args[2]))
  19. #
  20. # Revision 1.4  1995/09/12  07:35:46  dapp
  21. # Bug when the clock was 00:__:__ changed too 24:__:__
  22. # Added VOLUME option
  23. # Amiga Revision bumped
  24. #
  25. # Revision 1.3  1995/09/12  07:32:50  dapp
  26. # Added CONST instead of #define
  27. # Added version string
  28. # Added _better_ error handling
  29. # Added 12H option (18:00:00->06:00:00)     (SSP)
  30. # Added SAMPLERATE option (DEFAULT 8000)
  31. # Added real arg. handling
  32. # Added PAL/NTSC check
  33. # Amiga Revision bumped
  34. #
  35. # Revision 1.2  1995/09/12  07:31:54  dapp
  36. # First try!! Works :)
  37. # Amiga Revision bumped
  38. #
  39. # Revision 1.1  1995/09/12  07:31:22  dapp
  40. # Initial revision
  41. #
  42. * TODO:
  43. *
  44. *   o Figure out why
  45. *                IF arequest.length=4 THEN DeleteIORequest(arequest) /*WORKS*/
  46. *                IF arequest             THEN DeleteIORequest(arequest) /*CRASH*/
  47. *            Data:
  48. *                ioReq = CreateIORequest( ioReplyPort, size );
  49. *                ioReq - A pointer to the new IORequest block, or NULL.
  50. *                NULL:=NIL!!!!!
  51. *
  52. * NOTES:
  53. *
  54. *   o ci -l -f <filename> ; Amiga Revision bumped
  55. *
  56. *
  57. * AUTHOR :
  58. *
  59. *   o Jørgen 'Da' Larsen (dapp@iesd.auc.dk)
  60. *      Carl Blochs Vej 20
  61. *      9000 Aalborg
  62. *      Denmark
  63. *
  64. * IDEA   :
  65. *
  66. *   o saytime - Jef Poskanzer
  67. *
  68. */
  69.  
  70.  
  71. MODULE    'devices/audio',
  72.         'dos/datetime',
  73.         'dos/dos',
  74.         'dos/rdargs',
  75.         'exec/io',
  76.         'exec/memory',
  77.         'exec/ports',
  78.         'graphics/gfxbase'
  79.  
  80.  
  81. CONST PH_ONE = 1
  82. CONST PH_TWO = 2
  83. CONST PH_THREE = 3
  84. CONST PH_FOUR = 4
  85. CONST PH_FIVE = 5
  86. CONST PH_SIX = 6
  87. CONST PH_SEVEN = 7
  88. CONST PH_EIGHT = 8
  89. CONST PH_NINE = 9
  90. CONST PH_TEN = 10
  91. CONST PH_ELEVEN = 11
  92. CONST PH_TWELVE = 12
  93. CONST PH_THIRTEEN = 13
  94. CONST PH_FOURTEEN = 14
  95. CONST PH_FIFTEEN = 15
  96. CONST PH_SIXTEEN = 16
  97. CONST PH_SEVENTEEN = 17
  98. CONST PH_EIGHTEEN = 18
  99. CONST PH_NINETEEN = 19
  100. CONST PH_TWENTY = 20
  101. CONST PH_THIRTY = 21
  102. CONST PH_FORTY = 22
  103. CONST PH_FIFTY = 23
  104. CONST PH_THE_TIME_IS = 24
  105. CONST PH_OCLOCK = 25
  106. CONST PH_OH = 26
  107. CONST PH_EXACTLY = 27
  108. CONST PH_AND = 28
  109. CONST PH_SECOND = 29
  110. CONST PH_SECONDS = 30
  111.  
  112. CONST BUFFSIZE = 8192
  113.  
  114. ENUM ERR_ARG=1, ERR_VOL, ERR_INT, ERR_OPEN, ERR_MEM, ERR_PORT, ERR_IO
  115.  
  116. DEF path:PTR TO LONG, rate=8000, vol
  117.  
  118. PROC main() HANDLE
  119.  /* ReadArgs DEF's */
  120.  DEF readargs:PTR TO rdargs, args:PTR TO LONG
  121.  DEF eng
  122.  
  123.  /* Time DEF's */
  124.  DEF dt:datetime,ds:PTR TO datestamp
  125.  DEF hour,min,sec
  126.  
  127.  IF (readargs:=ReadArgs('P=PATH/A,S=SAMPLERATE,V=VOLUME,H=12H/S',args:=[NIL,NIL,NIL,NIL],NIL))=NIL THEN Throw(ERR_ARG,0)
  128.  
  129.  /* Arg Handling */
  130.  path:=String(StrLen(args[0]))
  131.  StrCopy(path,args[0],ALL)
  132.  
  133.  IF args[1]<>NIL        
  134.     rate:=Val(args[1])
  135.  ELSE
  136.     rate:=8000
  137.  ENDIF
  138.  
  139.  IF args[2] THEN vol:=Val(args[2])
  140.  IF vol<>NIL
  141.      IF ( (vol<1) OR (vol>64) )
  142.         Throw(ERR_VOL,0)
  143.     ENDIF
  144.  ELSE
  145.     vol:=64
  146.  ENDIF
  147.  
  148.  eng:=args[3]
  149.  
  150.  /* Get the current time */
  151.  ds:=DateStamp(dt.stamp)
  152.  min,hour:=Mod(ds.minute,60)
  153.  sec:=ds.tick/50
  154.  
  155.  /* Say the time is */
  156.  sayphrase( PH_THE_TIME_IS );
  157.  
  158.  /* Say Hour */
  159.  IF eng=TRUE
  160.     IF ( hour=0 )
  161.         saynumber( 12, 0 )
  162.     ELSEIF ( hour > 12 )
  163.         saynumber( hour - 12, 0 )
  164.     ELSE
  165.         saynumber( hour, 0 )
  166.      ENDIF
  167.  ELSE
  168.     IF ( hour=0 )
  169.         saynumber( 24, 0 )
  170.     ELSE
  171.         saynumber( hour, 0 )
  172.     ENDIF
  173.  ENDIF
  174.  
  175.  /* Say min. */
  176.  IF ( min = 0 )
  177.     sayphrase ( PH_OCLOCK )
  178.  ELSE
  179.     saynumber( min, 1 )
  180.  ENDIF
  181.  
  182.  /* Say sec. */
  183.  IF ( sec = 0 )
  184.     sayphrase( PH_EXACTLY )
  185.  ELSE
  186.     sayphrase( PH_AND )
  187.     saynumber( sec, 0 )
  188.     IF ( sec = 1 )
  189.         sayphrase( PH_SECOND )
  190.     ELSE
  191.         sayphrase( PH_SECONDS )
  192.     ENDIF
  193.  ENDIF
  194.  
  195. EXCEPT
  196.     SELECT exception
  197.         CASE ERR_INT
  198.             PrintF( 'DaSayTime: Internal error - \s\n', exceptioninfo )
  199.         CASE ERR_VOL
  200.             PrintF( 'DaSayTime: Option VOLUME need a value from 1 to 64\n')
  201.         CASE ERR_ARG
  202.             PrintF('DaSayTime (c) 1995 Jørgen \aDa\a Larsen (Posse Pro. DK)\n'+
  203.                    'Syntax:  DaSayTime <P=PATH> [S=SAMPLERATE] [V=VOLUME] [H=12H]\n'+
  204.                    'Example: DaSayTime Work:music/DaSayTime/Sounds/\n')
  205.     ENDSELECT
  206. ENDPROC
  207.  
  208. PROC sayfile( filename )
  209.     DEF execstr[256]:STRING
  210.     StringF(execstr,'\s\s',path,filename)
  211.     play(execstr,rate)
  212. ENDPROC
  213.  
  214. PROC play(filename,rate) HANDLE
  215.     /* Audio DEF's */
  216.     DEF arequest:ioaudio, reply=NIL, ior:PTR TO io, adevice=1, mnode:PTR TO mn
  217.  
  218.     /* File DEF's */
  219.     DEF memoryblock=NIL, file, len
  220.  
  221.     /* NTSC/PAL check DEF's */
  222.     DEF gfxBase:PTR TO gfxbase, clock 
  223.  
  224.     /* Check if PAL or NTSC */        
  225.     gfxBase:=gfxbase
  226.     IF gfxBase.displayflags AND PAL
  227.         clock := 3546895;         /* PAL clock */
  228.     ELSE
  229.         clock := 3579545;         /* NTSC clock */
  230.     ENDIF
  231.  
  232.     IF (file:=Open(filename,MODE_OLDFILE))=NIL THEN Throw(ERR_OPEN,filename)
  233.  
  234.     IF (memoryblock:=AllocMem(BUFFSIZE,MEMF_CHIP))=NIL THEN Throw(ERR_MEM,BUFFSIZE)
  235.  
  236.     IF (reply:=CreateMsgPort())=NIL THEN Throw(ERR_PORT,0)
  237.  
  238.     IF (arequest:=CreateIORequest(reply, SIZEOF ioaudio))=NIL THEN Throw(ERR_IO,0)
  239.  
  240.     /* want to allocate and use any channel with OpenDev() */
  241.     arequest.data    := [1,2,4,8]:CHAR
  242.     arequest.length := 4                    /* This number is checks in EXECPT */
  243.     ior                := arequest
  244.     ior.command        := ADCMD_ALLOCATE
  245.  
  246.     IF (adevice:=OpenDevice('audio.device', 0, arequest, 0))<>NIL THEN Throw(ERR_OPEN,'audio.device')
  247.  
  248.     len:=Read(file,memoryblock,BUFFSIZE)
  249.     ior.flags        := ADIOF_PERVOL
  250.     ior.command        := CMD_WRITE
  251.     arequest.data    := memoryblock
  252.     arequest.length := len
  253.     arequest.volume := vol                    /* volume = MAX */
  254.     arequest.period := Div(clock,rate)        /* set frequency */
  255.     arequest.cycles := 1                    /* 1 cycle only */
  256.     mnode            := arequest
  257.     mnode.replyport := reply
  258.  
  259.     /* start audio device */
  260.     beginIO(arequest)
  261.  
  262.     /* clean up */
  263.     WaitPort(mnode.replyport)
  264.     GetMsg(mnode.replyport)
  265. EXCEPT DO
  266.     IF file THEN Close(file)
  267.     IF memoryblock THEN FreeMem(memoryblock,BUFFSIZE)
  268.     IF reply THEN DeleteMsgPort(reply)
  269.     IF arequest.length=4 THEN DeleteIORequest(arequest)
  270.     IF adevice=NIL THEN CloseDevice(arequest)
  271.     SELECT exception
  272.         CASE ERR_MEM
  273.             PrintF( 'DaSayTime: Could\an allocate \s bytes\n', exceptioninfo )
  274.         CASE ERR_PORT
  275.             PrintF( 'DaSayTime: Could\an Create Message Port\n')
  276.         CASE ERR_IO
  277.             PrintF( 'DaSayTime: Could\an Create IO port\n')
  278.         CASE ERR_OPEN
  279.             PrintF( 'DaSayTime: Could\an open \s\n', exceptioninfo )
  280.     ENDSELECT
  281. ENDPROC
  282.  
  283. PROC beginIO(arequest)
  284.     MOVE.L    arequest,A1
  285.     MOVE.L    A6,-(A7)
  286.     MOVE.L    $14(A1),A6
  287.     JSR -$1E(A6)
  288.     MOVE.L    (A7)+,A6
  289. ENDPROC
  290.  
  291. PROC saydigit( n )
  292.     SELECT n
  293.         CASE 1
  294.             sayphrase( PH_ONE )
  295.         CASE 2
  296.             sayphrase( PH_TWO )
  297.         CASE 3
  298.             sayphrase( PH_THREE )
  299.         CASE 4
  300.             sayphrase( PH_FOUR )
  301.         CASE 5
  302.             sayphrase( PH_FIVE )
  303.         CASE 6
  304.             sayphrase( PH_SIX )
  305.         CASE 7
  306.             sayphrase( PH_SEVEN )
  307.         CASE 8
  308.             sayphrase( PH_EIGHT )
  309.         CASE 9
  310.             sayphrase( PH_NINE )
  311.         DEFAULT
  312.             Throw(ERR_INT,'saydigit()')
  313.     ENDSELECT
  314. ENDPROC
  315.  
  316. PROC sayphrase( phrase )
  317.     SELECT phrase
  318.         CASE PH_ONE
  319.             sayfile( '1.iff' )
  320.         CASE PH_TWO
  321.             sayfile( '2.iff' )
  322.         CASE PH_THREE
  323.             sayfile( '3.iff' )
  324.         CASE PH_FOUR
  325.             sayfile( '4.iff' )
  326.         CASE PH_FIVE
  327.             sayfile( '5.iff' )
  328.         CASE PH_SIX
  329.             sayfile( '6.iff' )
  330.         CASE PH_SEVEN
  331.             sayfile( '7.iff' )
  332.         CASE PH_EIGHT
  333.             sayfile( '8.iff' )
  334.         CASE PH_NINE
  335.             sayfile( '9.iff' )
  336.         CASE PH_TEN
  337.             sayfile( '10.iff' )
  338.         CASE PH_ELEVEN
  339.             sayfile( '11.iff' )
  340.         CASE PH_TWELVE
  341.             sayfile( '12.iff' )
  342.         CASE PH_THIRTEEN
  343.             sayfile( '13.iff' )
  344.         CASE PH_FOURTEEN
  345.             sayfile( '14.iff' )
  346.         CASE PH_FIFTEEN
  347.             sayfile( '15.iff' )
  348.         CASE PH_SIXTEEN
  349.             sayfile( '16.iff' )
  350.         CASE PH_SEVENTEEN
  351.             sayfile( '17.iff' )
  352.         CASE PH_EIGHTEEN
  353.             sayfile( '18.iff' )
  354.         CASE PH_NINETEEN
  355.             sayfile( '19.iff' )
  356.         CASE PH_TWENTY
  357.             sayfile( '20.iff' )
  358.         CASE PH_THIRTY
  359.             sayfile( '30.iff' )
  360.         CASE PH_FORTY
  361.             sayfile( '40.iff' )
  362.         CASE PH_FIFTY
  363.             sayfile( '50.iff' )
  364.         CASE PH_THE_TIME_IS
  365.             sayfile( 'the_time_is.iff' )
  366.         CASE PH_OCLOCK
  367.             sayfile( 'oclock.iff' )
  368.         CASE PH_OH
  369.             sayfile( 'oh.iff' )
  370.         CASE PH_EXACTLY
  371.             sayfile( 'exactly.iff' )
  372.         CASE PH_AND
  373.             sayfile( 'and.iff' )
  374.         CASE PH_SECOND
  375.             sayfile( 'second.iff' )
  376.         CASE PH_SECONDS
  377.             sayfile( 'seconds.iff' )
  378.         DEFAULT
  379.             Throw(ERR_INT,'sayphrase()')
  380.     ENDSELECT
  381. ENDPROC
  382.  
  383. PROC saynumber( n, leadingzero )
  384.     DEF ones, tens
  385.     ones,tens:=Mod(n,10)
  386.     SELECT tens
  387.         CASE 0
  388.             IF ( leadingzero ) THEN sayphrase( PH_OH )
  389.             saydigit( ones )
  390.         CASE 1
  391.             SELECT ones
  392.                 CASE 0
  393.                     sayphrase( PH_TEN )
  394.                 CASE 1
  395.                     sayphrase( PH_ELEVEN )
  396.                 CASE 2
  397.                     sayphrase( PH_TWELVE )
  398.                 CASE 3
  399.                     sayphrase( PH_THIRTEEN )
  400.                 CASE 4
  401.                     sayphrase( PH_FOURTEEN )
  402.                 CASE 5
  403.                     sayphrase( PH_FIFTEEN )
  404.                 CASE 6
  405.                     sayphrase( PH_SIXTEEN )
  406.                 CASE 7
  407.                     sayphrase( PH_SEVENTEEN )
  408.                 CASE 8
  409.                     sayphrase( PH_EIGHTEEN )
  410.                 CASE 9
  411.                     sayphrase( PH_NINETEEN )
  412.                 DEFAULT
  413.                     Raise()
  414.             ENDSELECT
  415.         CASE 2
  416.             sayphrase( PH_TWENTY )
  417.             IF ( ones<>0 ) THEN saydigit( ones )
  418.         CASE 3
  419.             sayphrase( PH_THIRTY )
  420.             IF ( ones<>0 ) THEN saydigit( ones )
  421.         CASE 4
  422.             sayphrase( PH_FORTY )
  423.             IF ( ones<>0 ) THEN saydigit( ones )
  424.         CASE 5
  425.             sayphrase( PH_FIFTY )
  426.             IF ( ones<>0 ) THEN saydigit( ones )
  427.         DEFAULT
  428.             Throw(ERR_INT,'saynumber()')
  429.     ENDSELECT
  430. ENDPROC
  431.  
  432. CHAR '$VER: DaSayClock v0.4 (12.09.95) Jørgen ''Da'' Larsen',0
  433.